<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_fileinfo__MMColParam rs_fileinfo__MMColParam = "1" If (Request.QueryString("filename") <> "") Then rs_fileinfo__MMColParam = Request.QueryString("filename") End If %> <% Dim rs_fileinfo Dim rs_fileinfo_numRows Set rs_fileinfo = Server.CreateObject("ADODB.Recordset") rs_fileinfo.ActiveConnection = MM_con_upload_STRING rs_fileinfo.Source = "SELECT * FROM ListFiles WHERE Filename = '" + Replace(rs_fileinfo__MMColParam, "'", "''") + "'" rs_fileinfo.CursorType = 0 rs_fileinfo.CursorLocation = 2 rs_fileinfo.LockType = 1 rs_fileinfo.Open() rs_fileinfo_numRows = 0 %> <% Dim rs_whatsnew Dim rs_whatsnew_numRows Set rs_whatsnew = Server.CreateObject("ADODB.Recordset") rs_whatsnew.ActiveConnection = MM_con_roundtable_STRING rs_whatsnew.Source = "SELECT * FROM content WHERE checked = True AND online = True" rs_whatsnew.CursorType = 0 rs_whatsnew.CursorLocation = 2 rs_whatsnew.LockType = 1 rs_whatsnew.Open() rs_whatsnew_numRows = 0 %> <% Dim rs_links Dim rs_links_numRows Set rs_links = Server.CreateObject("ADODB.Recordset") rs_links.ActiveConnection = MM_con_roundtable_STRING rs_links.Source = "SELECT * FROM links" rs_links.CursorType = 0 rs_links.CursorLocation = 2 rs_links.LockType = 1 rs_links.Open() rs_links_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_whatsnew_numRows = rs_whatsnew_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_links_numRows = rs_links_numRows + Repeat2__numRows %> <% Dim FileName Dim FilePath FileName = Request.QueryString("filename") FilePath = "documents/" + FileName %> SPREP - Roundtable for Nature Conservation Roundtable for Nature Conservation
The Roundtable for Nature Conservation

the largest cross-sectoral coalition of donors, NGOs, regional organisations and national governments working in nature conservation in the Pacific
Mainstreaming Conservation Partnership Mechanism – Roundtable for Nature Conservation
MAIN MENU
Roundtable Updates and Newsletters
8th Pacific Islands Conference on Nature Conservation and Protected Areas
Roundtable Meetings
Island Biodiversity
Contact us
   
Admin Login

 

Secretariat of the Pacific Regional Environment Programme
You are here:
Roundtable Home > Downloads
WHAT'S NEW
    <% If Not rs_whatsnew.EOF Or Not rs_whatsnew.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rs_whatsnew.EOF)) %>
  • "><%=(rs_whatsnew.Fields.Item("title").Value)%>
    • <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_whatsnew.MoveNext() Wend %> <% End If ' end Not rs_whatsnew.EOF Or NOT rs_whatsnew.BOF %>
OTHER LINKS
<% If Not rs_links.EOF Or Not rs_links.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT rs_links.EOF)) %>

"><%=(rs_links.Fields.Item("link_name").Value)%>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_links.MoveNext() Wend %> <% End If ' end Not rs_links.EOF Or NOT rs_links.BOF %>
 
File Download

Click on the download link to open or download the document.

<% Dim objFSO , myFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set myFile = objFSO.GetFile(Server.MapPath(FilePath)) %>

Filename: <%=FileName%>

Type : <%=myFile.Type%>

Size : <%=formatnumber(myFile.Size/1024,2)%> Kb

Uploaded on: <%= DoDateTime((rs_fileinfo.Fields.Item("UploadDT").Value), 1, 2057) %>

 

Download Link: <%="http://www.sprep.org/roundtable/"+FilePath%>

 

<% 'delete our object variables Set objFSO = Nothing Set myFile = nothing %>

Pdfs not downloading?
If you get a blank or incomplete page from the PDF link, right-click the link to the PDF file and select "Save Target As..." Then save it somewhere easy to find, such as your desktop. You can then exit the web browser and open the local file. This is an acknowledged incompatibility between Adobe Acrobat and Internet Explorer.

 
<% rs_fileinfo.Close() Set rs_fileinfo = Nothing %> <% rs_whatsnew.Close() Set rs_whatsnew = Nothing %> <% rs_links.Close() Set rs_links = Nothing %>